home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / STATUS1.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-21  |  454b  |  13 lines
  1. PROCEDURE STATUS1;
  2.    BEGIN
  3.      M1 := 2;                (* HIDE MOUSE *)
  4.      MOUSE(M1,M2,M3,M4);
  5.      MOVCUR(22,1);
  6.      WRITE(BLKLINE);
  7.      MOVCUR(22,1);
  8.      WRITE(' X = ',X:8:3,'  Y = ',Y:8:3,'   UNITS: ',UNIMEAS,' ':8-LENGTH(UNIMEAS));
  9.      WRITE(' FILENAME: ',DFILE,' ':14-LENGTH(DFILE),' BELL ');
  10.      IF BELLCODE = 7 THEN WRITE('ON') ELSE WRITE('OFF');
  11.      M1 := 1;                (* SHOW MOUSE *)
  12.      MOUSE(M1,M2,M3,M4);
  13.    END;